supplied-by
: xt-skip  ( c-addr1 u1 xt -- c-addr2 u2 )
   \ skip all characters satisfying xt ( ch -- f )
   >r
   begin
      dup
   while
      over c@ r@ execute
   while
      1 /string
   repeat  then
   r> drop
;
